home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / misc / gms_dev.lha / GMS / Source / E / Screens / OBJScreen.e < prev    next >
Encoding:
Text File  |  1997-07-08  |  909 b   |  38 lines
  1. /*
  2. ** Object Demo
  3. ** -----------
  4. ** Opens a screen according to the settings in an object file.  See
  5. ** asm/UsingObjects/OBJScreen.s for the object definitions.
  6. */
  7.  
  8. MODULE 'games','games/games'
  9.  
  10. PROC main()
  11.   DEF gamescreen:PTR TO gamescreen, picture:PTR TO picture, objbase:LONG
  12.  
  13.   IF gmsbase := OpenLibrary('GMS:libs/dpkernal.library',0)
  14.    SetUserPrefs(0);
  15.  
  16.    IF (objbase := LoadObjectFile('GMS:demos/data/OBJ.Screen'))
  17.     IF (gamescreen := GetObject(objbase,'Screen'))
  18.      IF (picture := GetObject(objbase,'Picture'))
  19.       IF (LoadPic(picture))
  20.          CopyStructure(picture,gamescreen)
  21.          gamescreen.memptr1 := picture.data
  22.  
  23.          IF (AddScreen(gamescreen))
  24.             ShowScreen(gamescreen)
  25.             WaitLMB()
  26.             DeleteScreen(gamescreen)
  27.          ENDIF
  28.        FreePic(picture)
  29.       ENDIF
  30.      ENDIF
  31.     ENDIF
  32.    FreeObjectFile(objbase)
  33.    ENDIF
  34.   CloseGMS()
  35.   ENDIF
  36. ENDPROC
  37.  
  38.